home *** CD-ROM | disk | FTP | other *** search
/ Amiga Mag HDD Backup / Amiga Mag HDD Backup.zip / Amiga Mag HDD Backup / Alexander.img.bin / Alexander.img / 315 2 files Archive.sit / Any plain-text files / ? Any plain-text file 83 < prev    next >
Text File  |  1995-01-03  |  2KB  |  82 lines
  1. Deck "CDADETextReader"
  2.     Card "TextReader"
  3.         BeforeAttachment
  4.             Nop ;The following lines are directives to CD_ADE
  5.             Let CD_ADE_Version = "940324.230349" ; $VER: 940324.230349 version 1.00
  6.             Nop ; CD_ADE_Icons = TRUE
  7.             If Invocation=0
  8.                 MakeDocument "TextDoc"
  9.                 Let WW=320
  10.                 Let WH=200
  11.                 Let WX=108
  12.                 Let WY=44
  13.             EndIf
  14.             Let Invocation=1
  15.         EndScript
  16.         AfterAttachment
  17.             SetWindowLimits 200,100,WorkbenchWidth,WorkbenchHeight
  18.         EndScript
  19.         Window "UserWindow"
  20.             Definition
  21.                 Origin WX,WY
  22.                 Size WW,WH
  23.                 Title "CD_ADE Text File Reader"
  24.                 NumberOfColors 4,69632
  25.                 DefaultColors 0,1,0
  26.                 WindowObjects CLOSEBUTTON DEPTHBUTTONS DRAGBAR SIZEBUTTON 
  27.                 WindowFlags ACTIVATE TOFRONT WORKBENCH 
  28.                 VisualEffects NONE ,WAIT 
  29.             EndScript
  30.             OnCloseButton
  31.                 Quit
  32.             EndScript
  33.             OnResized
  34.                 Let WX=WindowX
  35.                 Let WY=WindowY
  36.                 Let WW=WindowWidth
  37.                 Let WH=WindowHeight
  38.                 GotoCard "TextReader"
  39.             EndScript
  40.         EndObj
  41.         Memo "FileMemo"
  42.             Definition
  43.                 Origin 10,16
  44.                 Size WindowWidth-35,WindowHeight-50
  45.                 Font "topaz",8
  46.                 Style PLAIN ,2,3
  47.                 TextColors 1,0,JAM2 
  48.                 Border DOUBLEBEVEL ,2,1
  49.                 MemoDocument "TextDoc"
  50.                 ScrollBars RIGHT 
  51.                 InputStyle NORMAL 
  52.             EndScript
  53.         EndObj
  54.         TextButton "SelectFile"
  55.             Definition
  56.                 Origin (WindowWidth%2)-95,WindowHeight-20
  57.                 Font "topaz",11
  58.                 Style BOLD SHADOW ,2,3
  59.                 TextColors 1,0,JAM1 
  60.                 Text " Select File to View "
  61.                 Border BEVEL ,2,1
  62.                 Highlight COMPLEMENT 
  63.                 ButtonFlags NONE 
  64.             EndScript
  65.             OnRelease
  66.                 Let Heading="Select a text file to view"
  67.                 Let FNNew=AskForFileName(FN,Heading,WindowX+100,WindowY+100)
  68.                 If FNNew<>""
  69.                     Let FN=FNNew
  70.                     OpenFile FN,"FileBuf",READONLY ,OLDFILE 
  71.                     GetFileInfo FN,FNSize
  72.                     FileReadChars "FileBuf",TextVar,FNSize
  73.                     Close "FileBuf"
  74.                     Clear DOCUMENT 
  75.                     Type TextVar
  76.                     MoveCursorTo STARTOF DOCUMENT 
  77.                 EndIf
  78.             EndScript
  79.         EndObj
  80.     EndObj
  81. EndObj
  82. Normal